String related functions 
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REPORT ZDEMO STRING EXAMPLE. 
data : v name type String, v namel type String. 


v name = ' hi/ dude/ whatz/up'. 
write : / v name color 3. 


TRANSLATE v name TO UPPER CASE. "/ or LOWER CASE. 
write :/ v name color 4. 

CONDENSE v name . "it removes extra gaps 
*CONDENSE v_name no-gaps "it removes all gaps . 
v namel = v name. 

write : / v name color 5. 

data v len type i. 

v len = strlen( v name ). " lemnth of string 


write :/ ‘length ' color 6, v len color 6. 


skip 3. 
PARAMETER p sep(1) type c. 


data : v sl type String, v s2 type String, v s3 type St 


ring, v s4 TYPE String. 
split v namel at p sep into v sl v s2 v s3 v s4. 


write / ‘Split ---->>>>>'. 
write / v sl. 
write / v 52. 
write / v_s3. 
write / v_s4. 


data v name2 type String. 
concatenate v sl V S2 v_s3 V s4 into v name2 SEPARATED 
BY '-', 


write : /' Concatenate --------- >>>>>', v_name2 color 7 
skip 2. 
v name = 'vikasshri77'. 


write :/ ‘accessing part of string using Offset by Oth 
location to 3',v name+0(3). 


write :/ ‘accessing part of string using Offset by 2nd 
location to 3',v name+2(3). 


DATA strl TYPE String. 


strl = 'hi how are you'. 

skip 1. 

replace 'you' in strl with ‘you all'. 
write :/ 'str replaced ', strl. 

skip 1. 


strl = 'hell hell how are you'. 


data v_count type I. 


replace all occurrences of 'Hell' in strl with 'Hello' 
ignoring case replacement count v count. 


write :/ ‘str replaced all occurences ', strl color 5, 
‘replacement count -->', v_count color 6. 


skip 1. 
strl = 'hell hell how are you'. 
replace section offset 7 length 5 of strl with 'hellooo 


write :/ ‘str replaced all occurences ', strl color 5. 


Skip 3. 


Data : v str2 type STRING, v no TYPE i. 
v str2 = 'hey how are You and how are your parents“. 


FIND ALL OCCURRENCES OF ‘how' in v str2 IGNORING CASE M 
atch COUNT v no. 

write : / 'how finds ', v no. 

uline.uline. 

write / v_str2. 

uline. 


Skip 3. 
SHIFT v_str2 Left by 3 PLACES. 


write : / ‘SHIFT v str2 Left by 3 PLACES.’ COLOR 1. 
write / v str2. 


ULINE. 
SHIFT v str2 RIGHT by 2 PLACES. 


write 
write 
SHIFT 
write 


LOR 3. 


write 
SHIFT 
write 
OR 4. 


write 


uline. 


= £ "SHIFT v str2 Right by 2 PLACES.* COLOR 2. 

/ v_str2.uline. 

v str2 RIGHT CIRCULAR by 3 PLACES. 

: / ‘SHIFT v str2 RIGHT CIRCULAR by 3 PLACES.' CO 


/ v_str2.uline. 
v str2 LEFT CIRCULAR by 2 PLACES. 
: / ‘SHIFT v str2 Left CIRCULAR by 2 PLACES.’ COL 


F ȚŢv_str2. 
uline. 


